home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / audioreg.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  3.0 KB  |  90 lines

  1. sub AUDIO_PACK {
  2.     local($reg,$length) = @_;
  3.     eval "((($reg) << 8) | ($length))";
  4. }
  5. sub AUDIO_UNPACK_REG {
  6.     local($x) = @_;
  7.     eval "((($x) >> 8) & 0xff)";
  8. }
  9. sub AUDIO_UNPACK_LENGTH {
  10.     local($x) = @_;
  11.     eval "(($x) & 0xff)";
  12. }
  13. sub AUDIO_INIT {0x20;}
  14. sub AUDIO_INIT_INIT { &AUDIO_PACK(( &AUDIO_INIT | 0x01),1);}
  15. sub AUDIO_MUX {0x40;}
  16. sub AUDIO_MUX_MCR1 { &AUDIO_PACK( &AUDIO_MUX | 0x01,1);}
  17. sub AUDIO_MUX_MCR2 { &AUDIO_PACK( &AUDIO_MUX | 0x02,1);}
  18. sub AUDIO_MUX_MCR3 { &AUDIO_PACK( &AUDIO_MUX | 0x03,1);}
  19. sub AUDIO_MUX_MCR4 { &AUDIO_PACK( &AUDIO_MUX | 0x04,1);}
  20. sub AUDIO_MAP {0x60;}
  21. sub AUDIO_MAP_X { &AUDIO_PACK( &AUDIO_MAP | 0x01,16);}
  22. sub AUDIO_MAP_R { &AUDIO_PACK( &AUDIO_MAP | 0x02,16);}
  23. sub AUDIO_MAP_GX { &AUDIO_PACK( &AUDIO_MAP | 0x03,2);}
  24. sub AUDIO_MAP_GR { &AUDIO_PACK( &AUDIO_MAP | 0x04,2);}
  25. sub AUDIO_MAP_GER { &AUDIO_PACK( &AUDIO_MAP | 0x05,2);}
  26. sub AUDIO_MAP_STG { &AUDIO_PACK( &AUDIO_MAP | 0x06,2);}
  27. sub AUDIO_MAP_FTGR { &AUDIO_PACK( &AUDIO_MAP | 0x07,2);}
  28. sub AUDIO_MAP_ATGR { &AUDIO_PACK( &AUDIO_MAP | 0x08,2);}
  29. sub AUDIO_MAP_MMR1 { &AUDIO_PACK( &AUDIO_MAP | 0x09,1);}
  30. sub AUDIO_MAP_MMR2 { &AUDIO_PACK( &AUDIO_MAP | 0x0a,1);}
  31. sub AUDIO_MAP_ALL { &AUDIO_PACK( &AUDIO_MAP | 0x0b,46);}
  32. sub AUDIO_MAP_GX_MIN {0;}
  33. sub AUDIO_MAP_GX_MAX {12;}
  34. sub AUDIO_MAP_GR_MIN {-12;}
  35. sub AUDIO_MAP_GR_MAX {0;}
  36. sub AUDIO_MAP_GER_MIN {-10;}
  37. sub AUDIO_MAP_GER_MAX {18;}
  38. sub AUDIO_MAP_STG_MIN {-18;}
  39. sub AUDIO_MAP_STG_MAX {0;}
  40. sub AUDIO_MAP_FTGR_MIN {16;}
  41. sub AUDIO_MAP_FTGR_MAX {3999;}
  42. sub AUDIO_MAP_ATGR_MIN {-18;}
  43. sub AUDIO_MAP_ATGR_MAX {0;}
  44. sub AUDIO_INIT_BITS_IDLE {0x00;}
  45. sub AUDIO_INIT_BITS_ACTIVE {0x01;}
  46. sub AUDIO_INIT_BITS_NOMAP {0x20;}
  47. sub AUDIO_INIT_BITS_INT_ENABLED {0x00;}
  48. sub AUDIO_INIT_BITS_INT_DISABLED {0x04;}
  49. sub AUDIO_INIT_BITS_CLOCK_DIVIDE_2 {0x00;}
  50. sub AUDIO_INIT_BITS_CLOCK_DIVIDE_1 {0x08;}
  51. sub AUDIO_INIT_BITS_CLOCK_DIVIDE_4 {0x10;}
  52. sub AUDIO_INIT_BITS_CLOCK_DIVIDE_3 {0x20;}
  53. sub AUDIO_INIT_BITS_RECEIVE_ABORT {0x40;}
  54. sub AUDIO_INIT_BITS_TRANSMIT_ABORT {0x80;}
  55. sub AUDIO_MUX_PORT_NONE {0x00;}
  56. sub AUDIO_MUX_PORT_B1 {0x01;}
  57. sub AUDIO_MUX_PORT_B2 {0x02;}
  58. sub AUDIO_MUX_PORT_BA {0x03;}
  59. sub AUDIO_MUX_PORT_BB {0x04;}
  60. sub AUDIO_MUX_PORT_BC {0x05;}
  61. sub AUDIO_MUX_PORT_BD {0x06;}
  62. sub AUDIO_MUX_PORT_BE {0x07;}
  63. sub AUDIO_MUX_PORT_BF {0x08;}
  64. sub AUDIO_MUX_MCR4_BITS_INT_ENABLE {0x08;}
  65. sub AUDIO_MUX_MCR4_BITS_INT_DISABLE {0x00;}
  66. sub AUDIO_MUX_MCR4_BITS_REVERSE_BB {0x10;}
  67. sub AUDIO_MUX_MCR4_BITS_REVERSE_BC {0x20;}
  68. sub AUDIO_MMR1_BITS_A_LAW {0x01;}
  69. sub AUDIO_MMR1_BITS_u_LAW {0x00;}
  70. sub AUDIO_MMR1_BITS_LOAD_GX {0x02;}
  71. sub AUDIO_MMR1_BITS_LOAD_GR {0x04;}
  72. sub AUDIO_MMR1_BITS_LOAD_GER {0x08;}
  73. sub AUDIO_MMR1_BITS_LOAD_X {0x10;}
  74. sub AUDIO_MMR1_BITS_LOAD_R {0x20;}
  75. sub AUDIO_MMR1_BITS_LOAD_STG {0x40;}
  76. sub AUDIO_MMR1_BITS_LOAD_DLB {0x80;}
  77. sub AUDIO_MMR2_BITS_AINA {0x00;}
  78. sub AUDIO_MMR2_BITS_AINB {0x01;}
  79. sub AUDIO_MMR2_BITS_EAR {0x00;}
  80. sub AUDIO_MMR2_BITS_LS {0x02;}
  81. sub AUDIO_MMR2_BITS_DTMF {0x04;}
  82. sub AUDIO_MMR2_BITS_TONE {0x08;}
  83. sub AUDIO_MMR2_BITS_RINGER {0x10;}
  84. sub AUDIO_MMR2_BITS_HIGH_PASS {0x20;}
  85. sub AUDIO_MMR2_BITS_AUTOZERO {0x40;}
  86. sub ir { &cr;}
  87. sub bbrb { &bbtb;}
  88. sub bcrb { &bctb;}
  89. 1;
  90.